<%
  ' Si el usuario no está conectado, redirigir a la página de inicio de sesión
  If Not Session("auth_granted") = "true" Then 
  	cadURL = "Login.asp"
	response.write "<script>window.open('"& cadURL & "','_top');</script>"
	Response.End
  End If 
%>
<!--#include file="Librerias/mssql-ds.dll" -->
<!--#include file="Librerias/security-ds.dll" -->
<!--#include file="Funciones/FuncionesGenerales.asp" -->
<link href="Estilos/EstilosPagina.css" rel="stylesheet" type="text/css">

<script language="javascript">
function CargarProvincias(vID, vDEPARTAMENTOS){
	for (i=0;i<=vDEPARTAMENTOS;i++){
		document.getElementById('celda'+i).style.backgroundColor='#FFFFFF';
	}
	window.open('FrameProvincia.asp?qIdentificador='+vID, 'framePROVINCIA');
	window.open('Vacio.asp', 'frameMUNICIPIO');
}
</script>

<%
'// Recuperar la gestion de trabajo
qGestion = Session("auth_granted_poa_gestion")

sSQL = ""
sSQL = sSQL & " SELECT dep_id, dep_departamento"
sSQL = sSQL & " FROM _Departamentos"
sSQL = sSQL & " WHERE (dep_estado = 1)"
MatrizDEPTO = MatrixBD(sSQL, 1)
If VarType(MatrizDEPTO) = 8  then
	RegDEPTO = -1
Else
	RegDEPTO = UBound(MatrizDEPTO,2)	
End If
%>
        
<table width="100%" border="1" cellspacing="0" cellpadding="1" align="justify" bordercolor="#999999" style="border-collapse:collapse;" bgcolor="#FFFFFF">
  <tr bgcolor="#CCCCCC">
    <td align="center" width="20"><img src="Iconos/page_add.png" width="16" height="16" border="0" alt="Nuevo" title="Nuevo"></td>
    <td align="center" width="20" title="Editar"><em>E</em></td>
    <td align="center" width="20" title="Borrar"><em>B</em></td>
    <td align="center" width="100%"><em>Municipios</em></td>
  </tr>
  <% For de = 0 To RegDEPTO %>
  <tr id="celda<%=de%>">
    <td align="center"><input name="imagen" type="image" onClick="CargarProvincias(<%=MatrizDEPTO(0,de)%>, <%=RegDEPTO%>); document.getElementById('celda<%=de%>').style.backgroundColor='#FEE363';" src="Iconos/bullet_go.png"></td>
    <td align="center"><img src="Iconos/page_edit.png" width="16" height="16" border="0" alt="Editar" title="Editar"></td>
    <td align="center"><img src="Iconos/page_delete.png" width="16" height="16" border="0" alt="Borrar" title="Borrar"></td>
    <td align="left"><%=MatrizDEPTO(1,de)%></td>
  </tr>
  <% Next %>
</table>
